10 REM KALORIENTABELLE ==========64 20 REM (P) 87 COMMODORE WELT TEAM = 30 REM ============================ 40 REM ORIGINAL BY PERCY = 50 REM & EGON KWAPIL = 60 REM = 70 REM VERSION 2.0 40Z/ASCII = 80 REM C-64 + 1530/1541/1570/1571 = 90 REM ============================ 100 X=42:GOSUB4190:PRINTCL$:GOSUB220 110 POKE53280,0:POKE53281,0:POKE53272,23 120 DIMSP$(500),S$(500),D$(100) 130 REM *************************** 140 REM *************** UMRANDUNG * 150 REM *************************** 160 PRINTTAB(1);RD$RN$CD$KL$ 170 PRINTCHR$(30);TAB(14);CD$CD$CD$CD$"([195]) BY [208]ERCY" 180 PRINTTAB(14);CD$"[197]GON [203]WAPIL" 190 PRINTTAB(13);CD$"[195][207][205][205][207][196][207][210][197][160][215][197][204][212]" 200 FORI=1TO3000:NEXT 210 GOTO340 220 FORN=1024TO1063:POKEN,X:NEXT 230 FORN=55296TO55335:POKEN,6:NEXT 240 FORN=1063TO2023STEP40:POKEN,X:NEXT 250 FORN=55335TO56295STEP40:POKEN,6:NEXT 260 FORN=1984TO2023:POKEN,X:NEXT 270 FORN=56256TO56295:POKEN,6:NEXT 280 FORN=1984TO1024STEP-40:POKEN,X:NEXT 290 FORN=56256TO55296STEP-40:POKEN,6:NEXT 300 FORI=1TO150:NEXT:RETURN 310 REM *************************** 320 REM ************ BESCHREIBUNG * 330 REM *************************** 340 PRINTKS$ 350 PRINT" [205]IT DIESEM [208]ROGRAMM KOENNEN [211]IE DEN" 360 PRINT" [203]ALORIENGEHALT UND DEN [197]IWEISS-" 370 PRINT" GEHALT DEN [198]ETTGEHALT UND DEN" 380 PRINT" [203]OHLENHYDRATEGEHALT VERSCHIEDENER" 390 PRINT" [211]PEISEN ERMITTELN." 400 PRINT" [193]USSERDEM KOENNEN SIE NACH [197]INGABE DER" 410 PRINT" [204]EBENSMITTLELMENGE, DIE [211]IE ZU [211]ICH" 420 PRINT" GENOMMEN HABEN, [201]HRE PERSOENLICHE" 430 PRINT" [193]USWERTUNG ABRUFEN." 440 PRINT" [196]ADURCH WIRD ES [201]HNEN MOEGLICH, [201]HRE" 450 PRINT" [197]RNAEHRUNG IN DER [218]UKUNFT DEN" 460 PRINT" BENOETIGTEN [205]ENGEN ANZUPASSEN.":PRINT:PRINT 470 PRINTWT$;WE$:GOSUB4400 480 POKE198,0:WAIT198,1 490 IFPEEK(203)=14THEN1830 500 PRINTKS$ 510 PRINT" [202]EDER ZWEITE [194]UNDESBUERGER, EGAL OB" 520 PRINT" [215]EIBLICH ODER [205]AENNLICH, MOECHTE" 530 PRINT" GERN EIN PAAAR [203]ILO LEICHTER SEIN," 540 PRINT" ABER TROTZDEM AUF [199]ENUSS, [198]REUDE UND" 550 PRINT" [211]PASS BEIM [197]SSEN NICHT VERZICHTEN" 560 PRINT" [196]IESE GUTEN [214]ORSAETZE SCHEITERN" 570 PRINT" JEDOCH MEISSTENS AM [206]ICHT-[194]ESCHEID-" 580 PRINT" [215]ISSEN UEBER DEN [197]NERGIE- UND [206]AEHR-" 590 PRINT" STOFFGEHALT DER [206]AHRUNGSMITTEL." 600 PRINT" [196]ER [213]MGANG MIT DIESEM [208]ROGRAMM SOLL" 610 PRINT" [201]HNEN NUN DABEI HELFEN." 620 PRINT" [196]IE [215]ERTE SIND PORTIONSWEISE ZU" 630 PRINT" VERSTEHEN, DAS HEISST PRO [208]ORTION," 640 PRINT" [211]TUECK, [211]CHEIBE, [212]ASSE, [199]LAS," 650 PRINT" [197]SSLOEFFEL ODER [203]AFFEELOEFFEL.":PRINT 660 PRINTWT$;WE$:GOSUB4400 670 POKE198,0:WAIT198,1 680 IFPEEK(203)=14 THEN1830 690 PRINTKS$ 700 PRINTYE$" [215]AS MAN UEBER [203]ALORIEN WISSEN SOLLTE !" 710 PRINTRD$" [203]ILOKALORIEN ([203]CAL) STAMMT VON DEM" 720 PRINT" LATEINISCHEN [215]ORT 'CALOR' UND BEDEUTET" 730 PRINT" [215]AERME. [197]INE [203]ILOKALORIE ([203]CAL)" 740 PRINT" IST DIEJENIGE [215]AERMEMENGE, DIE" 750 PRINT" NOTWENDIG IST UM 1 [203]G [215]ASSER" 760 PRINT" VON 14.5 [195] AUF 15.5 [195] ZU ERWAERMEN.":PRINT:PRINT 770 PRINTWT$;WE$ 780 POKE198,0:WAIT198,1 790 IFPEEK(203)=14THEN1830 800 POKE198,0:GOTO1830 810 REM *************************** 820 REM ************ DATENEINGABE * 830 REM *************************** 840 PRINTKS$ 850 GOSUB4400:PRINTCY$"[201]HR [193]LTER" 860 X=4:Y=20:GOSUB4490:L=2:Z=1:R=1:GOSUB4500 870 AL=VAL(E$):PRINT:GOSUB4400 880 PRINT"[201]HR [199]EWICHT IN [203]G.":X=6:Y=20:GOSUB4490:L=3:Z=1:R=2:GOSUB4500 890 KG=VAL(E$):IFAL<10THEN1040 900 REM *************************** 910 REM ********* WERTZUWEISUNGEN * 920 REM *************************** 930 IFKG<55THENKB=1600:GOTO1070 940 IFKG<60THENKB=1800:GOTO1070 950 IFKG<65THENKB=1950:GOTO1070 960 IFKG<70THENKB=2100:GOTO1070 970 IFKG<75THENKB=2250:GOTO1070 980 IFKG<80THENKB=2400:GOTO1070 990 IFKG<85THENKB=2600:GOTO1070 1000 IFKG<90THENKB=2750:GOTO1070 1010 IFKG<95THENKB=2900:GOTO1070 1020 IFKG<100THENKB=2900:GOTO1070 1030 IFKG>100THENKB=2500:GOTO1070 1040 IFAL<4THENKB=KG*80:GOTO1070 1050 IFAL<7THENKB=KG*75:GOTO1070 1060 IFAL<10THENKB=KG*65 1070 EB=INT(KG/0.9):HB=KG*5:PRINT:FB=KG 1080 REM ************************** 1090 REM ********* BEDARFSAUSGABE * 1100 REM ************************** 1110 PRINTCD$CD$CD$CD$RD$"[201]HR [203]ALORIENBEDARF =";KB;" [212]AG"CD$ 1120 PRINT"[201]HR [198]ETTBEDARF =";FB;"[199]RAMM/[212]AG"CD$ 1130 PRINT"[201]HR [197]IWEISSBEDARF =";EB;"[199]RAMM/[212]AG"CD$ 1140 PRINT"[201]HR [203]OHL. [200]YDR. [194]ED. =";HB;"[199]RAMM/[212]AG"CD$ 1150 PRINTCD$CD$CD$CD$WT$ 1160 POKE198,0:WAIT198,1:GOSUB4400:POKE198,0 1170 GOTO2370 1180 REM ************************** 1190 REM ******** DIRECTORY LESEN * 1200 REM ************************** 1210 FORI=0TO100:D$(I)="":NEXT 1220 PRINTF1$S1$"[203]ALORIEN-[201]NALTSVERZEICHNIS "CD$ 1230 CO=0 1240 PRINTCY$; 1250 OPEN1,8,0,"$0" 1260 GET#1,A$,B$ 1270 GET#1,A$,B$ 1280 GET#1,A$,B$ 1290 C=0 1300 IFA$<>""THENC=ASC(A$) 1310 IFB$<>""THENC=C+ASC(B$)*256 1320 GET#1,B$:IFST<>0THEN1400 1330 IFB$<>CHR$(47)THEN1320 1340 GET#1,B$:IFB$<>CHR$(34)THENPRINTTAB(4);B$;:D$(CO)=D$(CO)+B$:GOTO1340 1350 GET#1,B$:IFB$=CHR$(32)THEN1350 1360 PRINTTAB(19);:C$="" 1370 C$=C$+B$:GET#1,B$:IFB$<>""THEN1370 1380 PRINTRD$LEFT$(C$,3) 1390 IFST=0THENPRINTCY$;:CO=CO+1:GOTO1270 1400 PRINT:CLOSE1 1410 CLOSE1:GOTO1420 1420 PRINTWT$;WE$ 1430 POKE198,0:WAIT198,1 1440 IFPEEK(203)=14THEN4600 1450 POKE198,0:GOTO1830 1460 IFQ>1000THENFORA=1TO35:PRINTFU$:NEXT:GOTO1830 1470 REM ************************** 1480 REM *********** DATENEINGABE * 1490 REM ************************** 1500 PRINTF1$S1$"[203]ALORIENDATENEINGABE"S2$CD$CD$ 1510 PRINTCD$CY$"[206]AME =>"CD$ 1520 GOSUB4400:X=4:Y=17:GOSUB4490:L=15:R=1:Z=0:GOSUB4500 1530 SP$=E$ 1540 PRINTCD$CY$"KALORIEN =>"CD$ 1550 GOSUB4400:X=6:Y=17:GOSUB4490:L=3:R=1:Z=1:GOSUB4500 1560 KA$=E$ 1570 PRINTCD$CY$"[197]IWEISS =>"CD$ 1580 GOSUB4400:X=8:Y=17:GOSUB4490:L=3:R=1:Z=1:GOSUB4500 1590 EW$=E$ 1600 PRINTCD$CY$"[198]ETT =>"CD$ 1610 GOSUB4400:X=10:Y=17:GOSUB4490:L=3:R=1:Z=1:GOSUB4500 1620 FE$=E$ 1630 PRINTCD$CY$"[203]OHLEHYDRATE =>"CD$ 1640 GOSUB4400:X=12:Y=17:GOSUB4490:L=3:R=1:Z=1:GOSUB4500 1650 KH$=E$ 1660 GOSUB2900 1670 TE$=LEFT$(SP$+" ",15)+RIGHT$(" "+KA$,4) 1680 TE$=TE$+" "+RIGHT$(" "+EW$,3) 1690 TE$=TE$+" "+RIGHT$(" "+FE$,3) 1700 TE$=TE$+" "+RIGHT$(" "+KH$,3) 1710 TE$=TE$+" "+RIGHT$(" "+AR$,2) 1720 PRINTCD$YE$RN$" [197]INGABE KORREKT (J/N) " 1730 X=15:Y=24:GOSUB4490:Z=0:L=1:R=0:GOSUB4500 1740 A$=E$:IFA$="N"THEN1490 1750 IFA$="J"THENQ=Q+1:SP$(Q)=TE$:TE$="":GOTO1770 1760 PRINTCU$CU$CU$:GOTO1720 1770 PRINTCU$CU$:PRINTWT$WE$:POKE198,0:WAIT198,1 1780 IFPEEK(203)=14THEN1830 1790 POKE198,0:GOTO1460 1800 REM ************************** 1810 REM ************* HAUPTMENUE * 1820 REM ************************** 1830 PRINTF1$S1$"[203]ALORIENTABELLE"S2$CD$CD$ 1840 PRINTCD$CD$CY$"(1) [201]NHALTSVERZEICHNIS"CD$ 1850 PRINT"(2) [203]ALORIEN LADEN"CD$ 1860 PRINT"(3) [203]ALORIEN SPEICHERN"CD$ 1870 PRINT"(4) [203]ALORIEN EINGEBEN"CD$ 1880 PRINT"(5) [203]ALORIEN LISTEN"CD$ 1890 PRINT"(6) [208]ROGRAMM [197]NDE"CD$CD$ 1900 PRINTGR$RN$"[201]HRE [197]INGABE [194]ITTE" 1910 GOSUB4400:X=18:Y=21:GOSUB4490:L=1:R=1:Z=1:GOSUB4500 1920 EE=VAL(E$):IF(EE<1)OR(EE>6)THEN1830 1930 ONVAL(E$)GOTO1220,2060,1940,1490,2250,4600 1940 REM ************************** 1950 REM ***** KALORIEN SPEICHERN * 1960 REM ************************** 1970 IFQ<1THEN1830 1980 PRINTF1$CD$S1$"[203]ALORIEN [211]PEICHERN"S2$CD$CD$ 1990 PRINTCD$CY$"[193]BSPEICHERN UNTER" 2000 GOSUB4400:X=5:Y=19:GOSUB4490:L=10:R=0:Z=0:GOSUB4500 2010 AB$="@:KALO/"+E$+",S,W" 2020 OPEN1,8,1,AB$ 2030 PRINT#1,STR$(Q);CHR$(13);:PRINTYE$CD$CD$"[196]ATENMENGE = ";Q 2040 FORW=1TOQ:PRINT#1,SP$(W);CHR$(13);:NEXT 2050 CLOSE1:GOTO1830 2060 REM ************************** 2070 REM ********* KALORIEN LADEN * 2080 REM ************************** 2090 PRINTF1$CD$S1$"[203]ALORIEN LADEN"S2$CD$CD$ 2100 FORI=0TOCO:PRINTTAB(4);D$(I):NEXT 2110 CLR:DIMSP$(500),S$(500),D$(100):GOSUB4190 2120 PRINTCD$CY$"[199]ESPEICHERT UNTER"CD$CD$ 2130 GOSUB4400:X=PEEK(214)-3 :Y=19:GOSUB4490:L=10:R=0:Z=0:GOSUB4500 2140 SE$=E$ 2150 AB$="KALO/"+SE$+",S,R" 2160 OPEN1,8,0,AB$ 2170 INPUT#1,X$:Q=VAL(X$):PRINTYE$CD$CD$"[196]ATENMENGE =";Q 2180 IFQ<1THENPRINTKD$:FORKD=1TO1500:NEXT:GOTO2210 2190 FORW=1TOQ:INPUT#1,SP$(W):NEXT 2200 IFB=1THENCLOSE1:RETURN 2210 CLOSE1:GOTO4010 2220 REM ************************** 2230 REM *********** UNTERMENUE 1 * 2240 REM ************************** 2250 PRINTCL$RD$RN$"[203]ALORIENTABELLE"CD$CD$ 2260 PRINTCD$CD$CY$"(1) [203]ALORIEN [193]USWERTEN"CD$ 2270 PRINT"(2) [203]ALORIEN [211]ORTIEREN "CD$ 2280 PRINT"(3) [203]ALORIEN [193]UFLISTEN"CD$ 2290 PRINT"(4) [197]NDE"CD$ 2300 PRINTYE$RN$"[201]HRE [197]INGABE [194]ITTE" 2310 GOSUB4400:X=13:Y=21:GOSUB4490:L=1:R=1:Z=1:GOSUB4500 2320 EE=VAL(E$):IF(EE<1)OR(EE>4)THEN2250 2330 ONVAL(E$)GOTO810,3190,4010,1830 2340 REM ************************** 2350 REM ***** AUSWERTUNGSEINGABE * 2360 REM ************************** 2370 IFSE$<>"TABELLE"THENSE$="TABELLE":B=1:GOSUB2150 2380 B=2:GOSUB2900:AU=0:ZK=1 2390 PRINTCL$:IFAR$="99"THENGOTO2680 2400 FORAU=1TOW 2410 IFAR$=MID$(SP$(AU),33,1)THEN2430 2420 GOTO2460 2430 IFZK=1THENPRINTYE$;AU;TAB(5);CY$;MID$(SP$(AU),1,15);:ZK=0:GOTO2460 2440 IFAR$<>MID$(SP$(AU),33,1)THENZK=0:GOTO2460 2450 IFZK=0THENPRINTTAB(20);YE$;AU;CY$;TAB(25);MID$(SP$(AU),1,14):ZK=1 2460 NEXT 2470 POKE211,0 2480 PRINTRN$YE$" [194]ITTE GEBEN [211]IE DIE [206]UMMER VOR DER " 2490 PRINTRN$" [194]EZEICHUNG WAS [211]IE GEGESSEN ODER " 2500 PRINTRN$" GETRUNKEN HABEN EIN . " 2510 GOSUB4400 2520 PRINTCY$ 2530 INPUT"[206]UMMER ";NR:PRINTCU$;TAB(20);:INPUT"[193]NZAHL ";AZ 2540 KA$=MID$(SP$(NR),17,3):KA=VAL(KA$) 2550 EI$=MID$(SP$(NR),21,3):EI=VAL(EI$) 2560 FE$=MID$(SP$(NR),25,3):FE=VAL(FE$) 2570 KO$=MID$(SP$(NR),29,3):KO=VAL(KO$) 2580 KV=KV+KA*AZ:EV=EV+EI*AZ 2590 FV=FV+FE*AZ:HV=HV+KO*AZ 2600 GOSUB4400:PRINTYE$CU$ 2610 INPUT"[215]EITERE [193]RTEN = 1, [193]NDERES [199]EBIET = 2";XX 2620 IFXX=2THENGOTO2380 2630 PRINTCU$CU$" " 2640 PRINTCU$CU$;SPC(39);CU$:GOTO2510 2650 REM ************************** 2660 REM ***** AUSWERTUNGSAUSGABE * 2670 REM ************************** 2680 PRINTF1$KL$CD$YE$ 2690 PRINT"[201]HR [203]ALORIENBEDARF =";KB;"[212]AG" 2700 PRINT"[203]ALORIENVERBRAUCH =";KV 2710 PRINT"[196]IFFERENZ =";:DI=KB-KV:PRINTDI:PRINT 2720 PRINT"[201]HR [198]ETTBEGARF =";FB;"[199]RAMM/[212]AG" 2730 PRINT"[198]ETTVERBRAUCH =";FV 2740 PRINT"[196]IFFERENZ =";:DI=FB-FV:PRINTDI:PRINT 2750 PRINT"[201]HR [203]OHL.[200]YD.[194]EDARF=";HB;" [199]RAMM/[212]AG" 2760 PRINT"[203]OHL.[200]YDR.[214]ERBR. =";HV 2770 PRINT"[196]IFFERENZ =";:DI=HB-HV:PRINTDI:PRINT 2780 PRINT"[201]HR [197]IWEISSBEDARF =";EB;" [199]RAMM/[212]AG" 2790 PRINT"[197]IWEISSVERBRAUCH =";EV 2800 PRINT"[196]IFFERENZ =";:DI=EB-EV:PRINTDI:PRINT 2810 GOSUB4400 2820 PRINTRN$"[193]NFANG = 1, [197]NDE = 2 " 2830 X=18:Y=23:GOSUB4490:L=1:Z=1:R=1:GOSUB4500 2840 XX=VAL(E$) 2850 IFXX=2GOTO4370 2860 KV=0:EV=0:HV=0:FV=0:GOTO1830 2870 REM ************************** 2880 REM ********* EINGABEAUSWAHL * 2890 REM ************************** 2900 PRINTF1$S1$"[197]INGABE [193]USWAHL"S2$CD$CD$ 2910 IFB=2THENPRINTF1$KL$CD$CD$ 2920 PRINTCY$"[199]ETRAENKE = 1 "; 2930 PRINT"[194]ROTARTEN = 2" 2940 PRINT"[193]UFSTRICH = 3 "; 2950 PRINT"[211]UPPEN = 4" 2960 PRINT"[198]LEISCH = 5 "; 2970 PRINT"[198]ISCH = 6" 2980 PRINT"[199]EFLUEGEL = 7 "; 2990 PRINT"[194]EILAGEN = 8" 3000 PRINT"[199]EMUESE-[207]BST = 9 "; 3010 PRINT"[211]AUCEN = [193]" 3020 PRINT"[197]IERSPEISEN = [194] "; 3030 PRINT"[206]ACHTISCH = [195]" 3040 PRINT"[215]URST = [196] "; 3050 PRINT"[199]EBAECK = [197]" 3060 PRINT"[203]AESE = [198] "; 3070 PRINT"[203]UCHEN = [199]" 3080 PRINT"[211]UESSIGKEITEN = [200] "; 3090 IFB=2THENPRINT"[197]NDE =99" 3100 IFB=2THENPRINTCD$YE$"[201]HRE [215]AHL [194]ITTE =>"CD$:GOTO3120 3110 PRINTCD$CD$YE$" [193]RT [194]ITTE =>"CD$ 3120 GOSUB4400:X=13:Y=19:GOSUB4490:L=2:R=0:Z=0:GOSUB4500 3130 AR$=E$:IFAR$="99"THEN2680 3140 IFAR$=""THEN2760 3150 RETURN 3160 REM ************************** 3170 REM *********** UNTERMENUE 2 * 3180 REM ************************** 3190 PRINTF1$S1$"[203]ALORIEN-[211]ORT"S2$CD$CD$ 3200 PRINTCD$CD$CY$"(1) [211]ORT [193]-[218]"CD$ 3210 PRINT"(2) [211]ORT NACH [203]ALORIEN"CD$ 3220 PRINT"(3) [211]ORT NACH [197]IWEISS"CD$ 3230 PRINT"(4) [211]ORT NACH [198]ETT"CD$ 3240 PRINT"(5) [211]ORT NACH [203]OH.[200]YDR."CD$ 3250 PRINT"(6) [197]NDE"CD$ 3260 PRINTYE$RN$"[201]HRE [197]INGABE [194]ITTE" 3270 GOSUB4400:X=17:Y=21:GOSUB4490:L=1:R=1:Z=1:GOSUB4500 3280 EE=VAL(E$):IF(EE<1)OR(EE>6)THEN3190 3290 ONVAL(E$)GOTO3330,3690,3770,3820,3930,2250 3300 REM ************************** 3310 REM ********* SORTIERROUTINE * 3320 REM ************************** 3330 PRINTF1$S1$"[203]ALORIEN-[211]ORT"S2$CD$ 3340 FORN=1TO500:NEXT 3350 L=INT(Q/2)+1:IFQ=0THENPRINTKV$:FORPP=1TO1500:NEXT:GOTO1830 3360 R=Q:PRINTHO$RD$CD$CD$CD$CD$CD$"[206]R. ";RIGHT$(" "+STR$(ABS(R)),3) 3370 IFL>1THEN3440 3380 IFR<=1THEN3430 3390 H$=SP$(L) 3400 SP$(L)=SP$(R) 3410 SP$(R)=H$ 3420 R=R-1 3430 GOTO3450 3440 L=L-1 3450 J=L 3460 I=2*J 3470 H$=SP$(J) 3480 IFI>RTHEN3600 3490 IFI>=RTHEN3540 3500 IFSP$(I)>=SP$(I+1)THEN3540 3510 I=I+1 3520 PRINTHO$YE$CD$CD$CD$CD$CD$; 3530 PRINT"[206]R. ";RIGHT$(" "+STR$(I),3):PRINTCD$CY$;SP$(I) 3540 IFI>RTHEN3600 3550 IFH$>=SP$(I)THEN3600 3560 SP$(J)=SP$(I) 3570 J=I 3580 I=2*J 3590 GOTO3490 3600 SP$(J)=H$ 3610 IFR<>1THEN3370 3620 IFB=1THENRETURN 3630 GOTO2250 3640 REM ************************** 3650 REM ** $ AUFTEILEN FUER SORT * 3660 REM ************************** 3670 REM ***** KALORIENAUFTEILUNG * 3680 REM ************************** 3690 B=1:E$=SE$:GOSUB2150 3700 FORT=1TOW:S$(W)=MID$(SP$(T),17,3):S$(W)=S$(W)+" "+MID$(SP$(T),1,16) 3710 SP$(T)=S$(W):NEXT:SP$(W)=SP$(T):B=1:GOSUB3330 3720 FORT=1TOW:S$(W)=MID$(SP$(T),5,16)+MID$(SP$(T),1,4) 3730 SP$(T)=S$(W):NEXT:B=0:GOTO2250 3740 REM ************************** 3750 REM ****** EIWEISSAUFTEILUNG * 3760 REM ************************** 3770 B=1:E$=SE$:GOSUB2150 3780 FORT=1TOW:S$(W)=MID$(SP$(T),21,3):S$(W)=S$(W)+" "+MID$(SP$(T),1,16) 3790 SP$(T)=S$(W):NEXT:SP$(W)=SP$(T):B=1:GOSUB3330 3800 FORT=1TOW:S$(W)=MID$(SP$(T),4,16)+" "+MID$(SP$(T),1,4) 3810 SP$(T)=S$(W):NEXT:B=0:GOTO2250 3820 B=1:E$=SE$:GOSUB2150 3830 REM ************************** 3840 REM ********* FETTAUFTEILUNG * 3850 REM ************************** 3860 FORT=1TOW:S$(W)=MID$(SP$(T),25,3):S$(W)=S$(W)+" "+MID$(SP$(T),1,16) 3870 SP$(T)=S$(W):NEXT:SP$(W)=SP$(T):B=1:GOSUB3330 3880 FORT=1TOW:S$(W)=MID$(SP$(T),4,16)+" "+MID$(SP$(T),1,4) 3890 SP$(T)=S$(W):NEXT:B=0:GOTO2250 3900 REM ************************** 3910 REM ****** HYDRATEAUFTEILUNG * 3920 REM ************************** 3930 B=1:E$=SE$:GOSUB2150 3940 FORT=1TOW:S$(W)=MID$(SP$(T),29,3):S$(W)=S$(W)+" "+MID$(SP$(T),1,16) 3950 SP$(T)=S$(W):NEXT:SP$(W)=SP$(T):B=1:GOSUB3330 3960 FORT=1TOW:S$(W)=MID$(SP$(T),5,16)+" "+MID$(SP$(T),1,4) 3970 SP$(T)=S$(W):NEXT:B=0:GOTO2250 3980 REM ************************** 3990 REM ************* AUFLISTUNG * 4000 REM ************************** 4010 PRINTF1$S1$"[193]UFLISTUNG"S2$S2$ 4020 ZZ=0 4030 PRINTYE$" [211]PEISE [203]. [197]I. [198]T. [203]H. [193]RT " 4040 IFQ=0THENPRINTKV$:FORKV=1TO1500:NEXT:GOTO1830 4050 FORL=1TOQ:IFL+X1>1000THENX1=0:GOTO1830 4060 PRINTRO$;RIGHT$(" "+STR$(L+X1),3);" ";:ZZ=ZZ+1 4070 PRINTCY$;SP$(L+X1);RO$:IFZZ=15THENZZ=0:GOTO4090 4080 GOTO4120 4090 PRINT:PRINTWT$;WE$:POKE198,0:WAIT198,1 4100 IFPEEK(203)=14THENX1=0:POKE198,0:GOTO1830 4110 PRINTCL$YE$" [211]PEISE [203]. [197]I. [198]T. [203]H. [193]RT " 4120 NEXT 4130 PRINT:PRINTWT$;WE$:POKE198,0:WAIT198,1 4140 IFPEEK(203)=14THENX1=0:POKE198,0: GOTO1830 4150 POKE198,0:GOTO1830 4160 REM ************************** 4170 REM ****** STRINGZUWEISUNGEN * 4180 REM ************************** 4190 CD$=CHR$(017):CU$=CHR$(145) 4200 CH$=CHR$(029):CT$=CHR$(157) 4210 RN$=CHR$(018):RF$=CHR$(146) 4220 HO$=CHR$(019):CL$=CHR$(147) 4230 RD$=CHR$(028):GR$=CHR$(030):DE$=CT$+" "+CT$+CT$ 4240 CY$=CHR$(159):RO$=CHR$(031):WS$=CHR$(5):BL$=CHR$(175) 4250 KL$=" [203]ALORIENAUSWERTUNG " 4260 KS$=CL$+CD$+CD$+RD$+RN$+" "+KL$+" "+CD$ 4270 F1$=CL$+RD$+RN$ 4280 WT$=GR$+RN$+" [215]EITER MIT [211]PACE " 4290 WE$=GR$+RN$+" [197][206][196][197] = [[197]] " 4300 S1$=" ":S2$=" " 4310 CP$=CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$ 4320 FU$=CL$+YE$+RN$+CP$+S1$+"[211] [208] [197] [201] [195] [200] [197] [210] [214] [207] [204] [204]"+S1$ 4330 KD$=CL$+YE$+RN$+CP$+"[203]EINE [196]ATEI UNTER DIESEM [206]AMEN VORHANDEN" 4340 C$(1)=WS$+BL$+CT$+CY$:C$(2)=RD$+BL$+CT$+CY$ 4350 KV$=CL$+YE$+RN$+CP$+" [203]EINE [196]ATEN VORHANDEN! " 4360 RETURN 4370 REM ************************** 4380 REM ************ TON-ROUTINE * 4390 REM ************************** 4400 SI=54272 4410 POKESI+24,15:POKESI+7,240:POKESI+8,10:POKESI+13,11 4420 POKESI+24,15:POKESI+0,111:POKESI+1,34:POKESI+6,13 4430 POKESI+11,17:POKESI+4,16 4440 POKESI+4,17:POKESI+4,16 4450 RETURN 4460 REM ************************** 4470 REM ************ GET-ROUTINE * 4480 REM ************************** 4490 PRINTHO$;:FORXX=1TOX:PRINT:NEXT:PRINTSPC(Y):FORI=1TO150:NEXT:RETURN 4500 E$="":X=1 4510 PRINTC$(X);:Y=Y+1:IFY>10THENY=1:X=X+1:IFX>2THENX=1 4520 GETY$:IFY$=""GOTO4510 4530 Y=ASC(Y$):IFY=13ANDLEN(E$)>R-1THENPRINT" ":RETURN 4540 IFY$=CHR$(20)ANDLEN(E$)>0THENE$=LEFT$(E$,LEN(E$)-1):PRINTDE$;:GOTO4520 4550 IFZ=0THENIFY<32ORY>127ANDY<160GOTO4520 4560 IFZ=1THENIFY<32ORY>32THENIFY<46ORY>57GOTO4520 4570 IFLEN(E$)>L-1GOTO4510 4580 E$=E$+Y$:PRINTY$;:GOTO4510 4590 R=1:L=8:N=0:GOSUB4490 4600 POKE198,0:POKE53272,21:PRINTCL$:END 4610 REM KALORIENTABELLE ========64 4620 REM 38911 BYTES MEMORY ==== 4630 REM 14522 BYTES PROGRAM ==== 4640 REM 00266 BYTES VARIABLES ==== 4650 REM 03370 BYTES ARRAYS ==== 4660 REM 00657 BYTES STRINGS ==== 4670 REM 20096 BYTES FREE (0) ==== 4680 REM ==========================